home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Starscroll.AMOS / Starscroll.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  1.3 KB  |  56 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. ANTAL=64
  10. Dim X(ANTAL),Y(ANTAL),SP(ANTAL)
  11. For N=0 To ANTAL
  12.    X(N)=Rnd(319)
  13.    Y(N)=Rnd(199)
  14.    SP(N)=Rnd(6)+1
  15. Next 
  16.  
  17. Screen Open 1,320,204,32,Lowres
  18. Curs Off : Flash Off 
  19. Palette 0,$100,$200,$300,$400,$500,$600,$700,$800,$900,$A00,$B00,$C00,$D00,$E00,$F00,$E00,$D00,$C00,$B00,$A00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$0,$0
  20. Screen Display 1,140,48,320,204
  21. Shift Up 2,1,31,1
  22. For X=0 To 319 Step 11
  23.    Add I,1
  24.    If I>20 Then I=20
  25.    Ink I
  26.    Draw X,0 To X+11,0
  27. Next 
  28.  
  29. For X=0 To 319 Step 11
  30.    Add I,-1
  31. If I=0 Then I=1
  32.    Ink I
  33.    Draw X,203 To X+11,203
  34. Next 
  35.  
  36.  
  37. Screen Open 0,320,200,8,Lowres : Flash Off : Curs Off : Hide 
  38. Cls 0 : Double Buffer : Autoback 0
  39. Palette 0,$666,$888,$999,$AAA,$CCC,$DDD,$FFF
  40.  
  41. Repeat 
  42.    For N=0 To ANTAL
  43.       Add X(N),SP(N)
  44.       If X(N)>319
  45.          X(N)=0
  46.          Y(N)=Rnd(199)
  47.          SP(N)=Rnd(6)+1
  48.       End If 
  49.       Plot X(N),Y(N),SP(N)
  50.    Next 
  51.    Screen Swap 
  52.    Cls 0
  53.    Wait Vbl 
  54. Until Key State(69)
  55.  
  56. Edit